home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 September & October / rerun-1986-09-10.d64 / demo 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  523 b   |  28 lines
  1. 10 ' demo three - hilbert curve
  2. 20 pi=3.14159265
  3. 25 def fn deg(deg)=deg*pi/180
  4. 26 '
  5. 30 ***error*** hilbert(size,level,parity)
  6. 40 if level=0 then ***error***
  7. 50 ***error*** parity*fn deg(90)
  8. 60 ***error*** hilbert(size,level-1,-parity)
  9. 70 ***error***
  10.  size
  11. 80 ***error*** parity*fn deg(90)
  12. 90 ***error*** hilbert(size,level-1,parity)
  13. 100 ***error***
  14.  size
  15. 110 ***error*** hilbert(size,level-1,parity)
  16. 120 ***error*** parity*fn deg(90)
  17. 130 ***error***
  18.  size
  19. 140 ***error*** hilbert(size,level-1,-parity)
  20. 150 ***error*** parity*fn deg(90)
  21. 160 ***error***
  22. 170 '
  23. 180 ***error*** 0,1
  24. 185 ***error*** 260,30: ***error*** fn deg(90)
  25. 190 ***error*** 1: ***error******error***: ***error***
  26. 200 ***error*** hilbert(5,5,1)
  27. 210 ***error***: end
  28.